{- |
Module      :  Symbols_test.hs
Description :  Testing Symbols.hs
Copyright   :  (c) Michal Parusinski
License     :  GPLv3

Maintainer  :  mparusinski@googlemail.com
Stability   :  NOT APPLICABLE
Portability :  portable
-}

module Symbols_test where 

import qualified Test.HUnit as Test

import Symbols
import TestUtils

simpleTests 
    = quickTestList "Simple symbol tests" list
      where list = [simpleTest1, simpleTest2,
                    simpleTest3, simpleTest4]

simpleTest1 
    = createEqualityTest "9 default symbols" size 9
    where size = length (symbols :: [DefaultSymbol])

simpleTest2
    = createEqualityTest "12 extended symbols" size 12
      where size = length (symbols :: [ExtendedSymbol])

simpleTest3 
    = createEqualityTest "Printing default symbols" input expected
      where input    = concatMap show (symbols :: [DefaultSymbol])
            expected = "123456789"

simpleTest4
    = createEqualityTest "Printing default symbols" input expected
      where input    = concatMap show (symbols :: [ExtendedSymbol])
            expected = "ABCDEFGHIJKL"

runSimpleTests
    = Test.runTestTT simpleTests
